home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 / Ham Radio 2000.iso / ham2000 / logs / logbook / awardedt.prg < prev    next >
Text File  |  1990-05-04  |  3KB  |  117 lines
  1. *:*********************************************************************
  2. *:
  3. *:        Program: AWARDEDT.PRG
  4. *:
  5. *:         System: PC-HAM Logbook
  6. *:         Author: Joe Kasser G3ZCZ
  7. *:      Copyright (c) 1990, Joe Kasser
  8. *:  Last modified: 04/27/90     13:24
  9. *:
  10. *:      Called by: AWARD.PRG                     
  11. *:
  12. *:           Uses: &LOGBOOK.DBF   
  13. *:               : &AWARD         
  14. *:
  15. *:        Indexes: &LOGNDX
  16. *:               : &AWARD
  17. *:
  18. *:      Documented 05/04/90 at 13:50                SNAP!  version 3.12f
  19. *:*********************************************************************
  20. * award VERSION 860501 (c) COPYRIGHT 1985,1986 JOE KASSER G3ZCZ
  21. * PUTS DATA IN award DATABASE
  22. SELECT 1
  23. USE &logbook  INDEX &logndx
  24. SELECT 2
  25. USE &award INDEX &award
  26. STORE .t. TO cflag
  27. STORE '             ' TO cstate
  28. STORE ' ' TO df
  29. STORE '         ' TO callcard
  30. CLEAR
  31. DO WHILE cflag
  32.    CLEAR
  33.    @ 1,5 SAY 'G3ZCZ GENERAL AWARD DATA ENTRY PROGRAM VERSION 1.2'
  34.    @ 3,1 SAY ' '
  35.    ACCEPT    'Which Award area (* to terminate) ? '  TO cstate
  36.    IF  cstate = '*'
  37.       STORE .F. TO cflag
  38.    ELSE
  39.       SELECT 2
  40.       GOTO TOP
  41.       FIND &cstate
  42.       IF (EOF() .or. BOF())
  43.          @ 6,10 SAY '  '
  44.          ? cstate,' IS A NEW ONE'
  45.       ELSE
  46.          @ 8,1 SAY ' '
  47.          ? pc,ddate,dband,dcall,dmode,dstate
  48.       ENDIF
  49.       @ 12,1 SAY 'Do you want to update the entry (Y/N/E) ?'
  50.       @ 12,43 GET df
  51.       READ
  52.       
  53.       DO CASE
  54.       CASE df = 'Y'
  55.          STORE '         ' TO  callcard
  56.          SELECT 1
  57.          @ 14,1 SAY 'What is the call ? '
  58.          @ 14,21 GET callcard
  59.          READ
  60.          FIND &callcard
  61.          @ 16,1 SAY ' '
  62.          IF (EOF() .or. BOF())
  63.             ? callcard,' is not in log'
  64.          ELSE
  65.             STORE .t. TO qflag
  66.             DO WHILE CALL = callcard .and. qflag
  67.                @ 20,1 SAY ' '
  68.                DISP
  69.                @ 22,2 SAY ' '
  70.                ACCEPT 'This one (Y/N) ?' TO df
  71.                IF df = 'Y'
  72.                   STORE .F. TO qflag
  73.                ENDIF
  74.                SKIP
  75.             ENDDO
  76.             IF qflag
  77.                * DON'T update entry
  78.             ELSE
  79.                SKIP -1
  80.                STORE cstate TO cstate
  81.                STORE CALL TO CALL
  82.                STORE DATE TO DATE
  83.                STORE TIME TO TIME
  84.                STORE band TO band
  85.                STORE mode TO mode
  86.                STORE qslrx TO qslrx
  87.                SELECT 2
  88.                IF (EOF() .or. BOF())
  89.                   APPEND BLANK
  90.                ENDIF
  91.                REPLACE pc    WITH cstate
  92.                REPLACE dcall WITH CALL
  93.                REPLACE ddate WITH DATE
  94.                REPLACE dtime WITH TIME
  95.                REPLACE dband WITH band
  96.                REPLACE dmode WITH mode
  97.                REPLACE dstate WITH qslrx
  98.             ENDIF
  99.          ENDIF
  100.       CASE df = 'E'
  101.          REPLACE dcall WITH ' '
  102.          REPLACE ddate WITH ' '
  103.          REPLACE TIME  WITH ' '
  104.          REPLACE dband WITH ' '
  105.          REPLACE dmode WITH ' '
  106.          REPLACE dstate WITH ' '
  107.       ENDCASE
  108.    ENDIF
  109. ENDDO
  110. SELECT 1
  111. USE
  112. SELECT 2
  113. USE
  114. RELEASE qflag,callcard,df,cstate,cflag
  115. RETURN
  116. *: EOF: AWARDEDT.PRG
  117.